home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / truetype / amimacro.zip / PYJNLIST.SMM < prev    next >
INI File  |  1992-12-29  |  6KB  |  346 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     CITIZEN Dot Matrix
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Creates an alphabetical list by Journal Name of articles from Psychlit Searches.  List can be used to look up articles.
  19.     
  20.     
  21.     
  22.     
  23.     725677003
  24.     17
  25.     718841980
  26.     150
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     2
  57.     59 0 13 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58.     78 0 12 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  59. [edoc]
  60. @Function@<:#216,10800>FUNCTION Bibliography()
  61.  
  62. <:#216,10800>Onerror endit
  63.  
  64. <:#216,10800>Oncancel endit
  65.  
  66. <:#216,10800>Darkmode(1)
  67.  
  68. <:#216,10800>hourglass(1)
  69.  
  70. <:#216,10800>c=1
  71.  
  72. <:#216,10800>openfile=GetOpenFileName$()
  73.  
  74. <:#216,10800>StatusBarMsg("Creating Journal List for {openfile}")
  75.  
  76. <:#216,10800>Type( "<[>CTRLHome]")
  77.  
  78. <:#216,10800>Done=Replace(0,0,5,"JN:","")
  79.  
  80. <:#216,10800>if done = -7
  81.  
  82. <:#216,10800>    goto endit
  83.  
  84. <:#216,10800>Endif
  85.  
  86. <:#216,10800>StatusBarMsg("Working on reference # {c}")
  87.  
  88. <:#216,10800>Type( "<[>Right]<[>SHIFTEnd]" )
  89.  
  90. <:#216,10800>jn=curshade$()
  91.  
  92. <:#216,10800>jnt=strfield$(jn,1,";")
  93.  
  94. <:#216,10800>jnv=strfield$(jn,2,";")
  95.  
  96. <:#216,10800>jn=strcat$(jnt,".",jnv,".  ")
  97.  
  98. <:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
  99.  
  100. <:#216,10800>au=curshade$()
  101.  
  102. <:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>SHIFTEnd]" )
  103.  
  104. <:#216,10800>ti=curshade$()
  105.  
  106. <:#216,10800>ref=strcat$(au,"  ",ti)
  107.  
  108. <:#216,10800>New("_Biblio.sty"  1 0  )
  109.  
  110. <:#216,10800>Type( "{openfile}<[>Enter]<[>F4]" )
  111.  
  112. <:#432,10800>Type( "<[>CTRLUp]<[>CTRLUp]<[>end]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLSHIFTHome]<[>Del]Journal List for <[>Home]<[>SHIFTEnd]" )
  113.  
  114. <:#216,10800>Title=curshade$()
  115.  
  116. <:#216,10800>GotoCmd(4 2 2  )
  117.  
  118. <:#216,10800>Type( "{title}<[>Enter]" )
  119.  
  120. <:#216,10800>PageNumber("Page "  1 1 "1"   )
  121.  
  122. <:#216,10800>Type( "<[>CTRLEnd]" )
  123.  
  124. <:#216,10800>Type( "{jn}{ref} (#{c})<[>Enter]" )
  125.  
  126. <:#216,10800>SaveAs("C:\AMIPRO\SCHOOL\PSYCHLIT\JNlist.SAM"  32 "{title}"  ""   )
  127.  
  128. <:#216,10800>StartOfFiles( )
  129.  
  130. <:#216,10800>NextWindow( )
  131.  
  132. <:#216,10800>Type( "<[>CTRLpgdn]")
  133.  
  134. @Function@<:#216,10800>Loop1:
  135.  
  136. <:#216,10800>Done=Replace(0,0,5,"JN:","")
  137.  
  138. <:#216,10800>if done = -7
  139.  
  140. <:#216,10800>    goto endit
  141.  
  142. <:#216,10800>Endif
  143.  
  144. c=c+1
  145.  
  146. <:#216,10800>StatusBarMsg("Working on reference # {c}")
  147.  
  148. <:#216,10800>Type( "<[>Right]<[>SHIFTEnd]" )
  149.  
  150. <:#216,10800>jn=curshade$()
  151.  
  152. <:#216,10800>jnt=strfield$(jn,1,";")
  153.  
  154. <:#216,10800>jnv=strfield$(jn,2,";")
  155.  
  156. <:#216,10800>jn=strcat$(jnt,".",jnv,".  ")
  157.  
  158. <:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]" )
  159.  
  160. <:#216,10800>au=curshade$()
  161.  
  162. <:#216,10800>Type( "  " )
  163.  
  164. <:#216,10800>Type( "<[>Home]<[>CTRLUp]<[>CTRLRight]<[>CTRLRight]<[>SHIFTEnd]" )
  165.  
  166. <:#216,10800>ti=curshade$()
  167.  
  168. <:#216,10800>ref=strcat$(jn,au,".  ",ti)
  169.  
  170. <:#216,10800>NextWindow( )
  171.  
  172. <:#216,10800>Type("{ref} (#{c})<[>Enter]")
  173.  
  174. <:#216,10800>StartOfFiles( )
  175.  
  176. <:#216,10800>NextWindow( )
  177.  
  178. <:#216,10800>Type( "<[>CTRLpgdn]")
  179.  
  180. <:#216,10800>goto loop1
  181.  
  182. @Function@<:#216,10800>saveit:
  183.  
  184. <:#216,10800>statusBarMsg("Saving JNlist.sam")
  185.  
  186. <:#216,10800>Type( "<[>CTRLHome]" )
  187.  
  188. <:#216,10800>NextWindow( )
  189.  
  190. <:#216,10800>Save()
  191.  
  192. <:#216,10800>statusBarMsg("Sorting JNlist.sam")
  193.  
  194. <:#216,10800>Replace(0 0 9221 "Vol"  "Vol."   )
  195.  
  196. <:#216,10800>Type( "<[>Down]<[>Home]<[>CTRLSHIFTEnd]" )
  197.  
  198. <:#216,10800>Sort(1 3 4 1 46 4443  )
  199.  
  200. <:#216,10800>Type( "<[>CTRLHome]" )
  201.  
  202. <:#216,10800>statusBarMsg("Saving JNlist.sam")
  203.  
  204. <:#216,10800>Save()
  205.  
  206. @Function@<:#216,10800>Endit:
  207.  
  208. <:#216,10800>statusBarMsg("")
  209.  
  210. <:#216,10800>darkmode(0)
  211.  
  212. <:#216,10800>hourglass(0)
  213.  
  214. <:#216,10800>END FUNCTION
  215.  
  216. >
  217.  
  218. [Embedded]
  219. 00003955
  220. >
  221. [macsum] 1
  222. Bibliography 0 0 11 0
  223. [macse]
  224. 14 Bibliography
  225. 20 00001579
  226. 19 00001579
  227. 0 292 1
  228. 0 296 1
  229. 5 1
  230. 8 1
  231. 0 267
  232. 13
  233. 8 2
  234. 0 789 "Creating Journal List for {2}"
  235. 0 6 "[16420]"
  236. 2 488 1 0 0 5 "JN:" ""
  237. 13
  238. 8 3
  239. 6 3
  240. 5 -7
  241. 18 0
  242. 11 00000217
  243. 10 00001579
  244. 0 789 "Working on reference # {1}"
  245. 0 6 "[39][4131]"
  246. 0 24
  247. 13
  248. 8 4
  249. 0 20 "{4}" 1 ";"
  250. 13
  251. 8 5
  252. 0 20 "{4}" 2 ";"
  253. 13
  254. 8 6
  255. 0 16 "{5}" "." "{6}" ".  "
  256. 13
  257. 8 4
  258. 0 6 "[36][16422][16422][16423][16423][20520]"
  259. 0 24
  260. 13
  261. 8 7
  262. 0 6 "[36][16422][16423][16423][4131]"
  263. 0 24
  264. 13
  265. 8 8
  266. 0 16 "{7}" "  " "{8}"
  267. 13
  268. 8 9
  269. 2 101 1 "_Biblio.sty" 1 0
  270. 0 6 "{2}[13][115]"
  271. 0 6 "[16422][16422][35][16421][16421][16421][20516][46]Journal List for [36][4131]"
  272. 0 24
  273. 13
  274. 8 10
  275. 2 452 1 4 2 2
  276. 0 6 "{10}[13]"
  277. 2 356 1 "Page " 1 1 "1"
  278. 0 6 "[16419]"
  279. 0 6 "{4}{9} (#{1})[13]"
  280. 2 104 1 "C:\AMIPRO\SCHOOL\PSYCHLIT\JNlist.SAM" 32 "{10}" ""
  281. 2 528 1
  282. 2 727 1
  283. 0 6 "[16418]"
  284. 2 488 1 0 0 5 "JN:" ""
  285. 13
  286. 8 3
  287. 6 3
  288. 5 -7
  289. 18 0
  290. 11 00000939
  291. 10 00001579
  292. 6 1
  293. 5 1
  294. 3 0
  295. 8 1
  296. 0 789 "Working on reference # {1}"
  297. 0 6 "[39][4131]"
  298. 0 24
  299. 13
  300. 8 4
  301. 0 20 "{4}" 1 ";"
  302. 13
  303. 8 5
  304. 0 20 "{4}" 2 ";"
  305. 13
  306. 8 6
  307. 0 16 "{5}" "." "{6}" ".  "
  308. 13
  309. 8 4
  310. 0 6 "[36][16422][16422][16423][16423][20520]"
  311. 0 24
  312. 13
  313. 8 7
  314. 0 6 "  "
  315. 0 6 "[36][16422][16423][16423][4131]"
  316. 0 24
  317. 13
  318. 8 8
  319. 0 16 "{4}" "{7}" ".  " "{8}"
  320. 13
  321. 8 9
  322. 2 727 1
  323. 0 6 "{9} (#{1})[13]"
  324. 2 528 1
  325. 2 727 1
  326. 0 6 "[16418]"
  327. 10 00000863
  328. 0 789 "Saving JNlist.sam"
  329. 0 6 "[16420]"
  330. 2 727 1
  331. 2 103 1
  332. 0 789 "Sorting JNlist.sam"
  333. 2 488 1 0 0 9221 "Vol" "Vol."
  334. 0 6 "[40][36][20515]"
  335. 2 456 1 1 3 4 1 46 4443
  336. 0 6 "[16420]"
  337. 0 789 "Saving JNlist.sam"
  338. 2 103 1
  339. 0 789 ""
  340. 0 292 0
  341. 0 296 0
  342. 6 0
  343. 15
  344. 9
  345. 00003980
  346.